Šiame dokumente pateikiami du interaktyvūs žemėlapiai:
library(leaflet)
library(dplyr)
library(readr)
library(sf)
library(rnaturalearth)
library(rnaturalearthdata)
contestants <- read.csv("C:/Users/User/Downloads/contestants.csv")
winners <- contestants %>%
filter(place_final == 1) %>%
count(to_country, name = "wins")
avg_points <- contestants %>%
filter(!is.na(points_final)) %>%
group_by(to_country) %>%
summarise(avg_total_points = mean(points_final), .groups = "drop")
map_stats <- full_join(winners, avg_points, by = "to_country")
world <- ne_countries(scale = "medium", returnclass = "sf") %>%
select(name, geometry)
map_stats <- map_stats %>%
mutate(to_country = case_when(
to_country == "Russian Federation" ~ "Russia",
to_country == "Türkiye" ~ "Turkey",
to_country == "Republic of Moldova" ~ "Moldova",
to_country == "Bosnia & Herzegovina" ~ "Bosnia and Herzegovina",
to_country == "Serbia & Montenegro" ~ NA_character_,
to_country == "Yugoslavia" ~ NA_character_,
TRUE ~ to_country
)) %>%
filter(!is.na(to_country))
map_data <- left_join(world, map_stats, by = c("name" = "to_country"))
Šis interaktyvus žemėlapis vaizduoja, kiek kartų kiekviena šalis yra laimėjusi Eurovizijos dainų konkursą. Per visą Eurovizijos gyvavimo istoriją labiausiai dominuoja Švedijos bei Airijos atstovai - jiems pavyko nugalėti po 7 kartus. Po 5 triumfavo Didžiosios Britanijos, Prancūzijos ir Olandijos dainininkai. Tuo metu Lietuva - vienintelė iš Baltijos šalių, kuriai nepavyko užkariauti didžiosios Eurovizijos scenos, mat Latvija ir Estija yra pasiekusios po 1 pergalę.
pal_wins <- colorNumeric("YlOrRd", domain = map_data$wins, na.color = "transparent")
leaflet(map_data) %>%
addProviderTiles("CartoDB.Positron") %>%
addPolygons(
fillColor = ~pal_wins(wins),
weight = 1,
color = "white",
fillOpacity = 0.8,
label = ~paste0(name, ": ", ifelse(is.na(wins), "0", paste0(wins, " pergalė(s)")))
) %>%
addLegend(
pal = pal_wins,
values = map_data$wins,
title = "Eurovizijos pergalės",
position = "bottomright"
)
Aukštas vidutinis surenkamų taškų skaičius finale dar negarantuoja pergalės. Puikus to pavyzdys - Bulgarija, kuri per visą savo dalyvavimų istoriją finaluose renka vidutiniškai net po 283 taškus, tačiau šios sumos iki šiol jiems negarantavo nei vienos pergalės. Taip nutinka todėl, kad ši šalis į finalą prasimuša ne kiekvienais metais, o kai ten patenka, tai konkurencija tarp valstybių surenkančių daug taškų yra pernelyg didelė. Tačiau jie tokie yra nevieni, Australija finale pasirodė keliais kartais daugiau, jame rinko po 219.9 balo, bet kol kas laimėti nesugebėjo.
Kiek sėkmingesnis pavyzdys - Ukraina, kuri taip pat renka virš 200 taškų, bet yra pasiekusi 3 pergales.
Įdomu pastebėti, kad dažniausiai Eurovizijoje triumfuojančios Švedija ir Airija renka atitinkamai po 106.1 ir 76.2 balų. Tačiau šie skaičiai nereiškia prasto pasirodymo – priešingai, šios šalys beveik niekada nepraleidžia finalų, tad natūralu, jog į vidurkį įeina ir silpnesni pasirodymai.
Tarp Baltijos šalių Lietuva (81.8 balai) atsilieka tiek nuo Latvijos, tiek nuo Estijos atstovų, kurie vidutiniškai renka atitinkamai po 97.1 ir 98.5 balo.
pal_pts <- colorNumeric("Blues", domain = map_data$avg_total_points, na.color = "transparent")
leaflet(map_data) %>%
addProviderTiles("CartoDB.Positron") %>%
addPolygons(
fillColor = ~pal_pts(avg_total_points),
weight = 1,
color = "white",
fillOpacity = 0.8,
label = ~paste0(name, ": ",
ifelse(is.na(avg_total_points), "Nėra duomenų",
paste0(round(avg_total_points, 1), " taškai")))
) %>%
addLegend(
pal = pal_pts,
values = map_data$avg_total_points,
title = "Vidutinis taškų skaičius",
position = "bottomright"
)